SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

-- ULMA
CREATE PROCEDURE [dbo].[SP_TTPROC_INTE_I01]                          
/*---------------------------------------------------------*/                          
/*---Empresa              : OFISIS S.A.                  --*/                          
/*---Cliente              : PERUPLAST                    --*/                          
/*---Sistema              : Tesoreria                    --*/                          
/*---M¸dulo               : Empresa                      --*/                          
/*---Programa             : Procedimiento Principal      --*/                          
/*---                       Intefase                     --*/                          
/*---Script               : ttproc_i.sql                 --*/                          
/*---Nombre SP            : SP_TTPROC_INTEr_I01           --*/                          
/*---Desarrollado por     : Javier Flores A.             --*/                          
/*---Fecha Creaci¸n       : 02/08/1999                   --*/                          
/*---Base Datos           : Microsoft Sql Server         --*/                          
/*---Versi¸n              : 7.0                          --*/                          
/*---Invoca a SP          :                              --*/                          
/*---------------------------------------------------------*/                          
                          
/*---------------------------------------------------------*/                          
/*---Modificado 1 por     :MARIBEL JULCA                 --*/                          
/*---Fecha Modificaci¸n   :23/08/2005                    --*/                           
/*---Detalle Modificaci¸n :ADAPTACION DE LA TMDOCU_CLIE  --*/                          
/*---------------------------------------------------------*/                          
                      
/*---------------------------------------------------------*/                          
/*---Modificado 2 por     :JAVIER FLORES                 --*/                          
/*---Fecha Modificaci¸n   :28/04/2005                    --*/                           
/*---Detalle Modificaci¸n :ADAPTACION PARA TEPSA         --*/                          
/*---------------------------------------------------------*/                          
                          
/*---------------------------------------------------------*/                          
/*---Comentarios                                         --*/                          
/*---                                                    --*/                          
/*---                                                    --*/                          
/*---------------------------------------------------------*/                          
                          
/*---------------------------------------------------------*/                          
/*---Drop Proc SP_TTPROC_INTE_I01                        --*/                          
/*---Grant all on SP_TTPROC_INTE_I01 to public           --*/                           
/*---SP_TTPROC_INTE_I01 '01' , 1, 1, '03/01/1999',       --*/                          
/*--- '03/31/1999', 'N', 1, 0, 0, NULL , NULL            --*/                          
/*---------------------------------------------------------*/                          
@ISCO_EMPR      TD_VC_002,   /* Cödigo de la Empresa */                          
@ISCO_USUA_MODI TD_VC_008, /*CODIGO DE USUARIO*/                      
@INNU_CNTB_EMPR  TD_SI_001, /* Nomero de la Contabilidad */                          
@INNU_PROC       TD_IN_001,  /* Nomero de Proceso de Interfase*/                          
@ISNO_RESP      VARCHAR(80), /* Nombre del Responsable */                          
@IDFE_PROC      TD_DT_001, /* Fecha de Inicio del Proceso */                          
@IDFE_FINA      TD_DT_001, /* Fecha de final del Proceso */                          
@ISST_FLAG      TD_VC_001 /* Flag a actualizar en los registros leidos */                          
 
as                          
                          
DECLARE                           
  @VNSE_ASTO TD_IN_001, /* Secuencial de registros en un Asiento */                          
  @VNFC_ASTO TD_SI_001, /* INDICADOR DE CERO DE SECUENCIAL DE ASIENTO */                           
  @VNNU_SECU TD_IN_001, /* Nomero secuencial de cada registro de un asiento */                          
  @OSNU_ASTO TD_VC_010, /* ULTIMO noMERO DE VOUCHER */              
  @ONNU_ERRO TD_IN_001, /* VARIABLE DE ERROR DE CADA SP */                           
  @OSDE_ERRO TD_VC_100, /* DESCRIPCION ERROR DE INTERFASE */                          
  @VNNU_SECU_RESU TD_IN_001,                          
  @CSCO_EMPR TD_VC_002,                  
  @CNNU_CNTB_EMPR TD_IN_001,                           
  @CSCO_UNID_CNTB TD_VC_003,                           
  @CSCO_OPRC_CNTB TD_VC_003,                     
  @CNNU_ANNO TD_SI_001,                          
  @CNNU_MESE TD_SI_001,                           
  @CSNU_ASTO TD_VC_010,                           
  @CNNU_SECU TD_IN_001,                           
  @CDFE_ASTO_CNTB TD_DT_001,                           
  @CSCO_CNTA_EMPR TD_VC_010,                           
  @CSTI_AUXI_EMPR TD_VC_001,                          
  @CSCO_AUXI_EMPR TD_VC_020,                           
  @CSTI_DOCU      TD_VC_003,                           
  @CSNU_DOCU      TD_VC_020,                           
  @CDFE_DOCU      TD_DT_001,                          
                       
 @CDFE_DOCU_VENC TD_DT_001,                          
  @CSTI_CAMB      TD_VC_003,                           
  @CSCO_MONE      TD_VC_003,                           
  @CNFA_CAMB      TD_NU_016_004,                           
  @CNFA_CAMB_DIAR TD_NU_016_004,                           
  @CSTI_OPER      TD_VC_003,                           
  @CNIM_MVTO_ORIG TD_NU_016_004,                           
  @CNIM_MVTO_CNTB TD_NU_016_004,                           
  @CSDE_GLOS      VARCHAR(80) ,                           
  @CSTI_DOCU_REFE TD_VC_003,                           
  @CSNU_DOCU_REFE TD_VC_020,                           
  @CDFE_DOCU_REFE TD_DT_001,                           
  @CSNO_GIRA      VARCHAR(80),                           
  @CDFE_ENTR_CHEQ TD_DT_001,                           
  @CDFE_PROG_CHEQ TD_DT_001,                           
  @CSCO_ORDE_SERV TD_VC_020,                           
  @CSSI_MVTO_CNTB TD_VC_003,                           
  @CSSI_MVTO_DOCU TD_VC_001,                           
  @CSCO_UNID_ORIG TD_VC_003,                          
  @CSCO_OPRC_ORIG TD_VC_003,                          
  @CSNU_ASTO_ORIG TD_VC_010,                          
  @CSST_OTRS   TD_VC_020,                           
  @CNNU_PROC      TD_SI_001,                           
  @CNNU_PROC_SECU TD_SI_001,                           
  @CSST_IMPR_CHEQ TD_VC_001,                          
  @CSST_FLAG      TD_VC_020,                           
  @CSCO_TABL_ORIG TD_IN_001,                           
  @CSCO_CLAV_TAOR TD_VC_050,                           
  @CSCO_USUA_MODI TD_VC_008_USUA,                           
  @CDFE_USUA_MODI TD_DT_001_SIST,                          
  @VNNU_FETC_0001 TD_IN_001,                          
  @VNNU_ASTO_AUXI TD_VC_010,                          
  @VSNU_ASTO      TD_VC_010,                          
  @VSCO_OPRC_ANTE TD_VC_003,                          
  @CSCO_TIPO_OPER  TD_VC_003                          
                          
BEGIN TRAN SP_TTPROC_INTE_I01                          
                          
/*                           
  INICIALIZO CONTADOR DE ASIENTOS                          
 */                          
                          
  SELECT @VNSE_ASTO = 1                          
  SELECT @VNFC_ASTO = 0   
  SELECT @VNNU_SECU 
= 0                          
                          
  Delete OFITESO..TTAUXI_ERRO                          
                          
--  Delete TTINTE_CNDE where co_empr = @ISCO_EMPR                           
                     
--  Delete TTINTE_CNTB where co_empr = @ISCO_EMPR                           
                          
  /* Provisi©n Documentos x Cobrar */                          
                          
  EXEC SP_TTPROC_INTE_I59 @ISCO_EMPR , @ISCO_USUA_MODI, @INNU_CNTB_EMPR , @INNU_PROC,  @IDFE_PROC,                         
          @IDFE_FINA , @ISST_FLAG, @VNSE_ASTO, @VNFC_ASTO, @VNNU_SECU,                         
           @OSNU_ASTO OUTPUT, @ONNU_ERRO OUTPUT , @OSDE_ERRO OUTPUT                        
                        
  IF (@ONNU_ERRO != 0)                        
      BEGIN                        
        RAISERROR 20001 'FIN DE ARCHIVO'                        
        ROLLBACK TRANSACTION SP_TTPROC_INTE_I01                        
        Insert into OFITESO..TTAUXI_ERRO (DE_ERRO) values (@OSDE_ERRO)                        
        RETURN                        
      END                        
    
                            
  /* Anulaci©n Provisiones docs por cobrar */                          
                          
  EXEC SP_TTPROC_INTE_I60 @ISCO_EMPR , @ISCO_USUA_MODI, @INNU_CNTB_EMPR , @INNU_PROC,  @IDFE_PROC,                
           @IDFE_FINA , @ISST_FLAG, @VNSE_ASTO, @VNFC_ASTO, @VNNU_SECU,                           
           @OSNU_ASTO OUTPUT, @ONNU_ERRO OUTPUT , @OSDE_ERRO OUTPUT                          
                          
                           
  IF (@ONNU_ERRO != 0)                          
      BEGIN                          
        RAISERROR 20001 'FIN DE ARCHIVO'                          
        ROLLBACK TRANSACTION SP_TTPROC_INTE_I01                          
        Insert into OFITESO..TTAUXI_ERRO (DE_ERRO) values (@OSDE_ERRO)                          
        RETURN                          
      END                          
  
   /* Actualizo usuario interfase */                          
                          
   Update TTINTE_CNDE Set CO_USUA_MODI = @ISCO_USUA_MODI, CO_USUA_CREA = @ISCO_USUA_MODI , FE_USUA_MODI = GETDATE()                        
                          
    IF (@@ERROR != 0)                           
                      
BEGIN                          
           RAISERROR 20001 'FIN DE ARCHIVO'                          
           ROLLBACK TRANSACTION SP_TTPROC_INTE_I01                          
         RETURN                          
        END                          
                          
/* Actualizo el campo Glosa si es Blanco ½ Nulo */                          
                          
   Update TTINTE_CNDE Set DE_GLOS = 'SIN GLOSA'                          
   Where DE_GLOS = '' Or DE_GLOS is null                          
                          
    IF (@@ERROR != 0)         
        BEGIN                          
           RAISERROR 20001 'FIN DE ARCHIVO'                          
           ROLLBACK TRANSACTION SP_TTPROC_INTE_I01                          
           RETURN                          
        END                          
                          
/* Insertando a la Tabla de Reporte */                          
                          
   Insert into TTINTE_REPO                           
   Select * From TTINTE_CNDE                        
   Where CO_EMPR = @ISCO_EMPR                          
   And NU_PROC = @INNU_PROC                          
                          
    IF (@@error != 0)                          
       BEGIN                          
         RAISERROR 20001 'ERROR DE INSERCION'                          
         ROLLBACK TRANSACTION SP_TTPROC_INTE_I01                          
         RETURN                          
       END                          
                    
/* Agrupamient
o de Operaciones Detalladas */                          
                          
Declare CU_TTPROC_INTE_I01_1  Cursor  For                      
Select t1.CO_EMPR,           t1.NU_CNTB_EMPR,      t1.CO_UNID_CNTB,      t1.CO_OPRC_CNTB,                      
       t1.NU_ANNO,           t1.NU_MESE,           Max(t1.NU_ASTO),      Max(t1.NU_SECU),                      
       Max(t1.FE_ASTO_CNTB), t1.CO_CNTA_EMPR,      t1.TI_AUXI_EMPR,   t1.CO_AUXI_EMPR,                      
       t1.TI_DOCU,      t1.NU_DOCU,      Max(t1.FE_DOCU),      Max(t1.FE_DOCU_VENC),                      
       Max(t1.TI_CAMB),      t1.CO_MONE,           MAX(t1.FA_CAMB),           MAX(t1.FA_CAMB_DIAR),                      
       t1.TI_OPER,           IsNull(Sum(IsNull(t1.IM_MVTO_ORIG,0)),0), IsNull(Sum(IsNull(t1.IM_MVTO_CNTB,0)),0), Max(t1.DE_GLOS),                      
       Max(t1.TI_DOCU_REFE), Max(t1.NU_DOCU_REFE), Max(t1.FE_DOCU_REFE), Max(t1.NO_GIRA),                      
       Max(t1.FE_ENTR_CHEQ), Max(t1.FE_PROG_CHEQ), t1.CO_ORDE_SERV,      Max(t1.SI_MVTO_CNTB),                       
       'N', Max(t1.CO_UNID_ORIG), Max(t1.CO_OPRC_ORIG), Max(t1.NU_ASTO_ORIG),                      
       Max(t1.ST_OTRS),      Max(t1.NU_PROC),      Max(t1.NU_PROC_SECU), Max(t1.ST_IMPR_CHEQ),                      
       Max(t1.ST_FLAG),      Max(t1.CO_TABL_ORIG), Max(t1.CO_CLAV_TAOR), Max(t1.CO_USUA_MODI),                      
       Max(t1.FE_USUA_MODI )                      
From   [OFIINTE].[dbo].[TTINTE_CNDE] t1,                      
       [OFIINTE].[dbo].[TMOPRC_RESU] t2                      
Where  t1.NU_PROC = @INNU_PROC                      
And    t1.CO_EMPR = @ISCO_EMPR                      
And    t1.CO_EMPR = t2.CO_EMPR                      
And    t1.CO_OPRC_CNTB = t2.CO_OPRC_CNTB                      
And    t2.ST_ASTO_RESU = 'S'                      
Group By t1.CO_EMPR,      t1.NU_CNTB_EMPR, t1.CO_UNID_CNTB, t1.CO_OPRC_CNTB,                      
         t1.NU_ANNO,      t1.NU_MESE,      t1.CO_CNTA_EMPR, t1.CO_MONE, t1.TI_AUXI_EMPR,                      
     t1.CO_AUXI_EMPR, t1.TI_DOCU,      t1.NU_DOCU,  t1.CO_ORDE_SERV, t1.TI_OPER              
Order By t1.CO_EMPR,      t1.NU_CNTB_EMPR, t1.CO_UNID_CNTB, t1.CO_OPRC_CNTB,                      
         t1.NU_ANNO,      t1.NU_MESE,      t1.CO_CNTA_EMPR, t1.CO_MONE,t1.TI_AUXI_EMPR,                      
         t1.CO_AUXI_EMPR, t1.TI_DOCU, t1.NU_DOCU, t1.CO_ORDE_SERV, t1.TI_OPER                      
                      
Open  CU_TTPROC_INTE_I01_1                      
Fetch CU_TTPROC_INTE_I01_1                      
Into  @CSCO_EMPR, @CNNU_CNTB_EMPR, @CSCO_UNID_CNTB, @CSCO_OPRC_CNTB,                      
      @CNNU_ANNO, @CNNU_MESE, @CSNU_ASTO, @CNNU_SECU,                      
      @CDFE_ASTO_CNTB, @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR,                      
      @CSTI_DOCU, @CSNU_DOCU, @CDFE_DOCU, @CDFE_DOCU_VENC,                      
      @CSTI_CAMB, @CSCO_MONE, @CNFA_CAMB, @CNFA_CAMB_DIAR,                      
      @CSTI_OPER, @CNIM_MVTO_ORIG, @CNIM_MVTO_CNTB, @CSDE_GLOS,                      
      @CSTI_DOCU_REFE, @CSNU_DOCU_REFE, @CDFE_DOCU_REFE, @CSNO_GIRA,                      
      @CDFE_ENTR_CHEQ, @CDFE_PROG_CHEQ, @CSCO_ORDE_SERV, @CSSI_MVTO_CNTB,                      
      @CSSI_MVTO_DOCU, @CSCO_UNID_ORIG, @CSCO_OPRC_ORIG, @CSNU_ASTO_ORIG,                      
      @CSST_OTRS, @CNNU_PROC, @CNNU_PROC_SECU, @CSST_IMPR_CHEQ,                      
      @CSST_FLAG, @CSCO_TABL_ORIG, @CSCO_CLAV_TAOR, @CSCO_USUA_MODI,                      
      @CDFE_USUA_MODI                      
                      
Select  @VSCO_OPRC_ANTE = '####'                      
                      
While  @@Fetch_Status = 0                      
Begin                      
  If @@Error != 0                   
  Begin                      
    Rollback Tran SP_TTPROC_INTE_I01                      
    Close CU_TTPROC_INTE_I01_10                      
    Deallocate CU_TTPROC_INTE_I01_10                      
    Return                      
  End                      
                       
  If @CSCO_OPRC_CNTB != @VSCO_OPRC_ANTE                        
  Begin                      
    Select @VSNU_ASTO = SubString( Convert( Varchar, ( IsNull( Max( IsNull( NU_ASTO, 0 ) ), 0 ) + 1 + 10000000000 ) ), 2, 10 )                      
    From   [OFIINTE].[dbo].[TTINTE_CNTB]            
    Where  CO_EMPR        = @CSCO_EMPR                      
    And    NU_CNTB_EMPR   = @CNNU_CNTB_EMPR                      
    And    CO_UNID_CNTB   = @CSCO_UNID_CNTB                      
    And    CO_OPRC_CNTB   = @CSCO_OPRC_CNTB                      
    And    NU_ANNO        = @CNNU_ANNO                      
    And    NU_MESE        = @CNNU_MESE                      
    And    NU_PROC        = @INNU_PROC                      
    Select @VSCO_OPRC_ANTE = @CSCO_OPRC_CNTB                      
    Select @VNNU_SECU = 0                      
  End                      
                      
  Select @VNNU_SECU = @VNNU_SECU + 1            
                      
  ---- Graba Asiento Resumido                      
  Insert Into [OFIINTE].[dbo].[TTINTE_CNTB] (                      
  CO_EMPR,         NU_CNTB_EMPR,    CO_UNID_CNTB,    CO_OPRC_CNTB,                      
  NU_ANNO,         NU_MESE,         NU_ASTO,         NU_SECU,                      
  FE_ASTO_CNTB,    CO_CNTA_EMPR,    TI_AUXI_EMPR,    CO_AUXI_EMPR,                      
  TI_DOCU,         NU_DOCU,         FE_DOCU,         FE_DOCU_VENC,                      
  TI_CAMB,         CO_MONE,         FA_CAMB,         FA_CAMB_DIAR,                      
  TI_OPER,         IM_MVTO_ORIG,    IM_MVTO_CNTB,    DE_GLOS,                      
  TI_DOCU_REFE,    NU_DOCU_REFE,    FE_DOCU_REFE,    NO_GIRA,                      
  FE_ENTR_CHEQ,    FE_PROG_CHEQ,    CO_ORDE_SERV,    SI_MVTO_CNTB,  SI_MVTO_DOCU,                    
  CO_UNID_ORIG,    CO_OPRC_ORIG,    NU_ASTO_ORIG,    ST_OTRS,                      
  NU_PROC,         NU_PROC_SECU,    ST_IMPR_CHEQ,    ST_FLAG,                      
  CO_TABL_ORIG,    CO_CLAV_TAOR,    CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI,    FE_USUA_MODI )                      
  Values(                      
  @CSCO_EMPR, @CNNU_CNTB_EMPR, @CSCO_UNID_CNTB, @CSCO_OPRC_CNTB,                      
  @CNNU_ANNO, @CNNU_MESE, @VSNU_ASTO,      @VNNU_SECU,                      
  @CDFE_ASTO_CNTB, @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR,                      
  @CSTI_DOCU, @CSNU_DOCU, @CDFE_DOCU, @CDFE_DOCU_VENC,                      
  @CSTI_CAMB, @CSCO_MONE, @CNFA_CAMB, @CNFA_CAMB_DIAR,                      
  @CSTI_OPER, @CNIM_MVTO_ORIG, @CNIM_MVTO_CNTB, @CSDE_GLOS,                      
  @CSTI_DOCU_REFE, @CSNU_DOCU_REFE, @CDFE_DOCU_REFE, @CSNO_GIRA,                      
  @CDFE_ENTR_CHEQ, @CDFE_PROG_CHEQ, @CSCO_ORDE_SERV, @CSSI_MVTO_CNTB,  @CSSI_MVTO_DOCU,                    
  @CSCO_UNID_ORIG, @CSCO_OPRC_ORIG, @CSNU_ASTO_ORIG,                      
  @CSST_OTRS, @CNNU_PROC, @CNNU_PROC_SECU, @CSST_IMPR_CHEQ,                      
  @CSST_FLAG, @CSCO_TABL_ORIG, @CSCO_CLAV_TAOR, @CSCO_USUA_MODI,                      
  @CDFE_USUA_MODI, @CSCO_USUA_MODI,                      
  @CDFE_USUA_MODI)                      
                      
  If @@Error != 0                      
  Begin                      
    Rollback Tran SP_TTPROC_INTE_I01                      
    Close CU_TTPROC_INTE_I01_1                      
    Deallocate CU_TTPROC_INTE_I01_1                      
    Return                      
  End                      
                      
  Fetch CU_TTPROC_INTE_I01_1                      
  Into  @CSCO_EMPR, @CNNU_CNTB_EMPR, @CSCO_UNID_CNTB, @CSCO_OPRC_CNTB,                      
        @CNNU_ANNO, @CNNU_MESE, @CSNU_ASTO, @CNNU_SECU,                      
        @CDFE_ASTO_CNTB, @CSCO_CNTA_EMPR
, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR,                      
        @CSTI_DOCU, @CSNU_DOCU, @CDFE_DOCU, @CDFE_DOCU_VENC,                      
        @CSTI_CAMB, @CSCO_MONE, @CNFA_CAMB, @CNFA_CAMB_DIAR,                      
        @CSTI_OPER, @CNIM_MVTO_ORIG, @CNIM_MVTO_CNTB, @CSDE_GLOS,                      
        @CSTI_DOCU_REFE, @CSNU_DOCU_REFE, @CDFE_DOCU_REFE, @CSNO_GIRA,                      
        @CDFE_ENTR_CHEQ, @CDFE_PROG_CHEQ, @CSCO_ORDE_SERV, @CSSI_MVTO_CNTB,                      
        @CSSI_MVTO_DOCU, @CSCO_UNID_ORIG, @CSCO_OPRC_ORIG, @CSNU_ASTO_ORIG,                      
        @CSST_OTRS, @CNNU_PROC, @CNNU_PROC_SECU, @CSST_IMPR_CHEQ,                      
        @CSST_FLAG, @CSCO_TABL_ORIG, @CSCO_CLAV_TAOR, @CSCO_USUA_MODI,                      
        @CDFE_USUA_MODI                      
End                      
Close CU_TTPROC_INTE_I01_1                      
Deallocate CU_TTPROC_INTE_I01_1                      
                      
---- Graba Asiento Detallado                      
Insert Into [OFIINTE].[dbo].[TTINTE_CNTB] (                     
CO_EMPR,         NU_CNTB_EMPR,    CO_UNID_CNTB,    CO_OPRC_CNTB,                      
NU_ANNO,         NU_MESE,         NU_ASTO,         NU_SECU,                      
FE_ASTO_CNTB,    CO_CNTA_EMPR,    TI_AUXI_EMPR,    CO_AUXI_EMPR,                      
TI_DOCU,         NU_DOCU,         FE_DOCU,         FE_DOCU_VENC,                      
TI_CAMB,         CO_MONE,         FA_CAMB,         FA_CAMB_DIAR,                      
TI_OPER,         IM_MVTO_ORIG,    IM_MVTO_CNTB,    DE_GLOS,                      
TI_DOCU_REFE,    NU_DOCU_REFE,    FE_DOCU_REFE,    NO_GIRA,                      
FE_ENTR_CHEQ,    FE_PROG_CHEQ,    CO_ORDE_SERV,    SI_MVTO_CNTB,  SI_MVTO_DOCU,                      
CO_UNID_ORIG,    CO_OPRC_ORIG,    NU_ASTO_ORIG,                      
ST_OTRS,         NU_PROC,         NU_PROC_SECU,    ST_IMPR_CHEQ,                      
ST_FLAG,         CO_TABL_ORIG,    CO_CLAV_TAOR,   CO_USUA_CREA,                      
FE_USUA_CREA, CO_USUA_MODI,                      
FE_USUA_MODI )                      
Select t1.CO_EMPR,      t1.NU_CNTB_EMPR, t1.CO_UNID_CNTB, t1.CO_OPRC_CNTB,                        
       t1.NU_ANNO,      t1.NU_MESE,      t1.NU_ASTO,      t1.NU_SECU,                        
       t1.FE_ASTO_CNTB, t1.                      
CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR,                        
       t1.TI_DOCU,      t1.NU_DOCU,      t1.FE_DOCU,      t1.FE_DOCU_VENC,                        
       t1.TI_CAMB,      t1.CO_MONE,      t1.FA_CAMB,      t1.FA_CAMB_DIAR,                      
       t1.TI_OPER,      t1.IM_MVTO_ORIG, t1.IM_MVTO_CNTB, t1.DE_GLOS,                        
       t1.TI_DOCU_REFE, t1.NU_DOCU_REFE, t1.FE_DOCU_REFE, t1.NO_GIRA,                      
       t1.FE_ENTR_CHEQ, t1.FE_PROG_CHEQ, t1.CO_ORDE_SERV, t1.SI_MVTO_CNTB, t1.SI_MVTO_DOCU,                     
  t1.CO_UNID_ORIG, t1.CO_OPRC_ORIG, t1.NU_ASTO_ORIG,                      
       t1.ST_OTRS,      t1.NU_PROC,      t1.NU_PROC_SECU, t1.ST_IMPR_CHEQ,                      
       t1.ST_FLAG,      t1.CO_TABL_ORIG, t1.CO_CLAV_TAOR, t1.CO_USUA_MODI,                      
       t1.FE_USUA_MODI , t1.CO_USUA_MODI,                      
       t1.FE_USUA_MODI                               
From   [OFIINTE].[dbo].[TTINTE_CNDE] t1,                         
       [OFIINTE].[dbo].[TMOPRC_RESU] t2                      
Where  t1.NU_PROC = @INNU_PROC                      
And    t1.CO_EMPR = @ISCO_EMPR                      
And    t1.CO_EMPR = t2.CO_EMPR                      
And    t1.CO_OPRC_CNTB = t2.CO_OPRC_CNTB                      
And    ( t2.ST_ASTO_RESU = 'N' Or t2.ST_ASTO_RESU IS NULL )                      
               
If @@Error != 0                
Begin                      
  Rollback Tran                       
  Return                      
End                      

 
   INSERT INTO TTPROC_INTE( CO_EMPR, CO_SIST, NU_PROC, NO_RESP, FE_INIC, FE_FINA, ST_PROC, FE_TRAN_ORIG,                           
   ST_ORIG, CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI )                          
   VALUES( @ISCO_EMPR, 'OFITESO', @INNU_PROC, @ISNO_RESP, @IDFE_PROC, @IDFE_FINA, 'F',                           
   getdate(), 'F' ,USER, getdate(),USER, getdate() )                           
                      
  If @@error != 0                      
  Begin                      
    Rollback Tran                       
    Return                      
  End                      
                      
Commit                      
                      
Return                      
/*-------------------------- Fin --------------------------*/



GO
